home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SCROLL < prev    next >
Text File  |  1994-12-13  |  294b  |  5 lines

  1. SCROLL: procedure;parse arg line,text;sp=2;getuser27;ll=result-1
  2.     do a=1 to length(text)+ll;ch=substr(text,a,1);if index('¹²³',ch)>0 then sp=translate(ch,'246','¹²³')
  3.     else sendstring ''line';0HP'line';'ll'H'ch;call delay(sp);maygetchar;if result~='NOCHAR' then leave;end
  4.   return
  5.